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Guida per l'input dei programmi versioni 
C64 


Notate che i listati contengono 'pa¬ 
role' racchiuse tra parentesi graffe 
j j. Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero, questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da [()] deve esse¬ 


re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico "solitario'” questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL. 

Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con¬ 
trollo del cursore o dei colori. 


{CLR} 
{HOME} 
{SU} " 
{GIU'} 
{SIN} 
{DES} 

{RVS } 
{OFF} 

{BLK} 
{WHT} 
{RED} 




C 


CTRL 



QQS Q 


E 

{CYN} 

5» 

{PUR} 

□ 

{GRN} 

Q 

{BLU} 

vi 

{YEL} 

3 

[<1>] 

R 

t < 2> ] 

■ 

[ < 3 > ] 

m 

[<4>] 

E 

[< 5>} 

h 

(<6>] 




Per ricevere gli arretrati di si compilare il seguente tagliando: 


_ Compilare ed inviare in busta chiusa a: 

J, SO fi viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 



Nome 



Cognome 


Indirizzo 


CAP 


Città 


Prov 


Desidero ricevere i seguenti numeri arretrati di 


Anno 






dedicato a 


Anno 


a L. 2.000 cad. per un totale di L . a mezz0 


□ assegno allegato 


□ contanti allegati 
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Stop Bus 


Se non l'hai sia fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: “-.rem”seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 


che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell 'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 
fatto che gli spazi non influiscono 
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sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTO RE, e per ri atti- 
.vario batti SYS 40704. 


STOP BUG per C64 

100 POKE55,0 :POKE56,PEEK(56)-1:R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI=RTOR+l32 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK< >22689THENPRINT"{GIU'}ERRORE NELLE ISTRUZIONI DA 
TA" : END 

140 SYS(R) : PRINT"{CLR} { 2 GIU '} {RVS } STOP BUG{OFF } ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 ,32,208,1,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0,1 33,254,96,32,87,241 ,1 33 
240 DATA251,134,252,132,253,8,201,13,240 
2 50 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,21 4,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,255,1 66,254,1 69,0 
310 DATAI 33,254,1 72,33,999,1 92,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,214,76,55,999 
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^Escher 


Questo programma si ispira alle 
creazioni del famoso artista grafico 
M.C. Escher. Seguendo le istruzioni 
che compaiono sullo schermo, uti¬ 
lizzate i caratteri mostrati nelle li¬ 
nee 1000-1200, vale a dire i simboli 
grafici ottenibili tramite i tasti SHIFT 
e Commodore, per creare spetta¬ 
colari disegni. I caratteri vengono 
raggruppati in " quadrati " di cui è 


possibile selezionare le dimensini; 
i quadrati (e i simboli che li com¬ 
pongono) sono poi orientabili in 
quattro direzioni (nord-est-sud- 
ovest) ruotandoli di 90, 180 e 270 
gradi rispetto alla posizione inizia¬ 
le. Vi suggeriamo di fare molte pro¬ 
ve per imparare bene l'uso del 
programma ed ottenere gli effetti 
desiderati. 


1 0 

MK=2 0 

: rem 

1 52 

20 

PRINT"{CLR}" 

: rem 

1 98 

30 

INPUT"COLORE CARATTERI (0-15) ";CA:IFCA<0ORCA>1 5THENPRI 


NT"{ 2 SU}":GOTO30 

: rem 

231 

40 

POKE64 6,CA 

: rem 

227 

50 

INPUT"COLORE SFONDO (0-15)";SF:IFSF<OORSF>15THENPRINT" 


{ 2 SU}":GOTO50 

: rem 

84 

60 

POKE53 2 81 ,SF 

: rem 

93 

70 

INPUT"COLORE BORDO (0-15)";BO:IFBO<OORBO>15THENPRINT" 


{ 2 SU}":GOTO70 

: rem 

237 

80 

POKE532 80,BO 

: rem 

86 

90 

DIMSY(MK,3) 

: rem 

55 

1 00 

FORCC=OTOMK 

: rem 

1 66 

1 1 0 

FORRl=0TO3 

: rem 

63 

1 20 

READSY(CC,Ri) 

: rem 

225 

1 30 

NEXT 

: rem 

21 1 

1 40 

NEXT 

: rem 

21 2 

1 50 

INPUT"{ 2 GIU 1 }MISURA DEL QUADRATO (2-23)" 

;S: IFS< 20RS 


> 2 3THENPRINT"{ 4 SU}":GOTO150 

: rem 

1 64 

1 60 

SX=INT(39/S)+1 

: rem 

5 

1 70 

SY=INT(23/S)+1 

: rem 

0 

1 80 

DIMDS(SX,SY),BS(S,S),RI(S,S),SC(S*SX,S*SY) 

: rem 

60 

1 90 

PRINT"{CLR}INTRODUCI I CARATTERI GRAFICI" 

: rem 

1 40 

200 

PRINT"OGNI RIGA";S;"SIMBOLI{GIU'}" 

: rem 

224 

21 0 

FORR=0TOS-1 

: rem 

1 41 

220 

PRINT"RIGA";R+l;TAB(7); 

: rem 

70 

230 

A$ = " " 

: rem 

1 23 

240 

INPUTA$ 

: rem 

1 39 

250 

A$ = LEFT$(A$ + "{ 23 SPAZI}",S) 

: rem 

44 
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260 

FORK=OTOS-1 

: rem 

1 39 

270 

BS(R,K)=ASC(MID$(A$,K+l,1)) 

: rem 

145 

280 

NEXT 

: rem 

21 7 

290 

NEXT 

: rem 

21 8 

300 

PRINT 

: rem 

32 

31 0 

PRINT"ORIENTAMENTO DEI QUADRATI 

(N,S,E,0)" : rem 

49 

320 

PRINT"OGNI FILA";SX;"DIREZIONI" 

: rem 

1 93 

330 

PRINT 

: rem 

35 

340 

FORB = OTOSY- 1 

: rem 

21 8 

350 

PRINT"FILA";B+1;TAB(7); 

: rem 

51 

360 

INPUTA$ 

: rem 

1 42 

370 

FORA=OTOSX-1 

: rem 

21 9 

380 

IN$=MID$(A$,A+l ,1) :IFIN$<>"N"ANDIN$<>"S"ANDIN$<>" 
DIN$0"0"THEN820 :rem 

E"AN 

145 

390 

DS(A,B)=-((IN$ = "N")+2 *(IN$ = "E")+3*(IN$ = "S")+4 *(IN$ = "0 
"))-!• : rem 77 

400 

IFDS(A,B)< OTHENDS(A,B)=0 

: rem 

89 

41 0 

NEXT 

: rem 

21 2 

420 

NEXT 

: rem 

21 3 

430 

PRINT 

: rem 

36 

440 

PRINT"[ELABORAZIONE DISEGNO]" 

: rem 

1 65 

450 

FORR=OTOS-1 

: rem 

147 

460 

FORK=OTOS-1 

: rem 

1 41 

470 

FORRl=3TOOSTEP-1 

: rem 

226 

480 

FORCO = MKTO0STEP- 1 

: rem 

75 

490 

IFBS(K,R)=SY(CC,R1)THENC2=CC:R2= 

Ri :CC=0: Ri=0 : rem 

1 34 

500 

NEXT 

: rem 

21 2 

51 0 

NEXT 

: rem 

21 3 

520 

BS(K,R)=C2 

: rem 

248 

530 

RI(K,R)=R2 

: rem 

1 4 

540 

NEXT 

: rem 

21 6 

550 

NEXT 

: rem 

21 7 

560 

PRINT"[FONDO GRAFICO]" 

: rem 

1 49 

570 

FORR=OTOS-1 

: rem 

1 50 

580 

FORK=OTOS-1 

: rem 

1 44 

590 

FORB=OTOSY-1 

: rem 

225 

600 

FORA=OTOSX-1 

: rem 

21 5 

61 0 

ONDS(A,B)+1G0T0620,630,640,650 

: rem 

74 

620 

X=K:Y=R:GOTO660 

: rem 

1 69 

630 

X=S-R-1 :Y=K:GOTO660 

: rem 

1 36 

640 

X=S-K-1 :Y=S-R-1 :GOTO660 

: rem 

1 03 

650 

X=R:Y=S-K-1■ • 

: rem 

1 23 

660 

Ri=(DS(A,B)+RI(R,K))AND3 

: rem 

42 

670 

SC(X+A*S,Y+B*S)=SY(BS(R,K),Rl) 

: rem 

204 

680 

NEXT 

: rem 

221 

690 

NEXT 

: rem 

222 

700 

NEXT 

: rem 

21 4 

71 0 

NEXT 

: rem 

21 5 

720 

PRINT"{CLR}"; 

: rem 

56 

730 

FORY=0TO23 

: rem 

79 

740 

FORX=0TO3 9 

: rem 

86 
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750 

IFSC(X , Y )>2 55THENPRINT"{RVS} " ;:GOTO770 

: rem 

39 

760 

PRINT"{OFF} 


: rem 

59 

770 

PRINTCHR$(SC(X,Y)AND255) ; 


: rem 

235 

780 

NEXT 


: rem 

222 

790 

NEXT 


: rem 

223 

800 

PRINT"{DES}"; 


: rem 

193 

81 0 

GOTO810 


: rem 

1 07 

820 

PRINT"{ 2 GIU'}INPUT ERRATO!{ 2 SPAZI} 

RIPROVA. " :END 




: rem 

109 

1 000 

DATA32 , 32 , 32 , 32 : REM 

IV v« 

: rem 

85 

1 01 0 

DATAI 65,1 63,1 67,1 64 :REM 

" [ <G> ] " 

: rem 

21 4 

1 020 

DATA212,197,217,210 : REM 

VI rpll 

: rem 

250 

1 030 

DATAI 99,1 96,200,1 98 :REM 

"G” 

: rem 

2 

1 040 

DATAI 94 , 1 95,221 , 1 92 :REM 

"B" 

: rem 

245 

1 050 

DATAI 80,1 83,1 70,1 75:REM 

" [ <H> ]" 

: rem 

228 

1 060 

DATAI 81 , 1 84,1 82,1 85:REM 

" [<J>] " 

: rem 

236 

1 070 

DATAI 61 , 41 8,41 7,1 62 :REM 

" [<K>] " 

: rem 

21 1 

1 080 

DATA205,206,205,206:REM 


: rem 

244 

1 090 

DATA203,202,21 3,201 : REM 

"K" 

: rem 

231 

1 1 00 

DATAI 89, 1 73,1 76,1 74 :REM 

"[<X>]" 

: rem 

246 

1110 

DATA2 07,208, 1 86,204 : REM 

"O" 

: rem 

250 

1 1 20 

DATAI 77,1 71,1 78,1 79:REM 

" [ <E> ] 11 

: rem 

238 

1 1 30 

DATAI 69,223,425, 479:REM 


: rem 

228 

1 1 40 

DATAI 90,1 88, 1 72,1 87 :REM 

"[<V>]" 

: rem 

249 

1 1 50 

DATA209,209,209,209:REM 

"Q" 

: rem 

4 

1 1 60 

DATA214,214,214,214:REM 

"V" 

: rem 

250 

1 1 70 

DATA215,215,215,215:REM 

"W" 

: rem 

0 

1 1 80 

DATA21 9,219,219,21 9: REM 

Il Il 

: rem 

21 

1 1 90 

DATAI 66,422,1 66, 422:REM 

"!<+>]" 

: rem 

21 9 

1 200 

DATAI 91 , 44 7,1 91 , 44 7 : REM 

" [<B>] " 

: rem 

246 


A 

O* 

H Bombardiere 







Non preoccupdrti se non riuscirai 
mai a concludere questo gioco, 
poiché è quasi una cosa impossibi¬ 
le. 

Sei il pilota di un bombardiere e 
stai sorvolando una immensa città 
nemica quando ti accorgi che ora¬ 
mai è troppo tardi per cercare di 
tornare alla base: la benzina scar¬ 


seggia e perdi sempre più quota. 
L’unica possibilità di salvezza è 
aprirti un varco tra i grattacieli 
bombardandoli, in modo da riusci¬ 
re ad atterrare. Hai a dispozione 5 
aerei per concludere il gioco,- per 
sganciare le bombe usa la barra 
spaziatrice. 
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1 REM * * *BOMBARDIERE* * * 

5 POKE53280,3:POKE53281 , 6 :PRINTCHR$(147) ;CHR$(5) 

10 POKE52,48:POKE56,48 
20 POKE5 63 3 4,PEEK(5633 4)AND2 54 
30 POKEl ,PEEK(1)AND2 51 

4 0 FORJ=0TO511 :POKEl 2 288+J,PEEK(53 24 8+J) :NEXT 

50 POKEl,PEEK(l)OR4 

60 POKE56334,PEEK(56334)ORI 

70 POKE53272,(PEEK(53272)AND240)+12 

80 FORJ=1 2 2 88TO1 2295 :READQ:POKEJ,Q:NEXT 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 


45 

69 
251 
1 71 
1 

1 81 
1 09 
1 9 
1 34 
209 


90 C 

1=54272 

: rem 

238 

1 00 

S(0)=704 :S(1)=832 

: rem 

38 

1 1 0 

FORS = OTOl :FORJ= 0TO62 

: rem 

240 

1 20 

READQ:POKES(S)+J,Q 

: rem 

82 

1 30 

NEXTJ,S 

: rem 

1 56 

1 40 

POKE2 04 0,S(0)/64 

: rem 

35 

1 50 

POKE2041,S(l)/64 

: rem 

38 

1 60 

POKE53 2 69,0 

: rem 

43 

200 

POKE53 2 87,7 

: rem 

45 

21 0 

POKE53 2 88,5 

: rem 

45 

220 

POKE53 2 79,0 

: rem 

41 

300 

S=0:L=0:GOSUB7000 

: rem 

1 99 

500 

DIMT(39) 

: rem 

1 28 

51 0 

T=RND(-TI) 

: rem 

38 

520 

FORJ =1TO12 

: rem 

60 

530 

FORK=lT09:T(INT(RND (1)*40))=1 :NEXTK 

: rem 

85 

540 

FORK=0TO39 

: rem 

71 

550 

IFT(K)=1THENPOKEl 504 + 40*J+K,0 :POKEl 504+D+40*J+K, : 

INT ( R 


ND (1 ) *8)+8 

: rem 

50 

560 

NEXTK,J 

: rem 

1 55 

999 

REM 

: rem 

1 43 

1 000 

P=72:POKE53248,0:POKE53249,P:POKE53264, 

0:POKE53269,1 



: rem 

6 

1 01 0 

X=0:Y=P 

: rem 

1 67 

1 020 

X=X+8:IFX> = 2 55THENX= 0:POKE53264,PEEK(53264)+1 




: rem 

1 74 

1 030 

IFX> = 8 5AND((PEEK(53264)ANDl)=1)THENPOKE53264 ,PEEK(53 


264)AND2 :X=0:Y=Y+8 

: rem 

1 40 

1 040 

POKE532 4 8,X :POKE53 2 4 9,Y 

: rem 

1 1 5 

1 050 

GETI$ 

: rem 

1 9 

1 060 

IFI$<>""ANDPEEK(53269)=1THENGOSUB2000 

: rem 

178 

1 070 

IFPEEK(53269)=3THENGOSUB3000 

: rem 

1 84 

1 080 

IFX=80ANDY=240AND((PEEK(53264)ANDl)=1)THEN20000 




: rem 

21 4 

1 090 

IF(PEEK(53279)ANDl)<>1 THENi 02 0 

: rem 

203 

1 099 

REM 

: rem 

1 83 

1 1 00 

L=L+1:GOSUB7000:POKE53287,2 

: rem 

68 

1110 

SP=0:GOSUB6000 

: rem 

83 

1 1 20 

P=P+8 

: rem 

4 

1 1 30 

POKE532 87,7 :POKE532 4 8,0:POKE532 4 9, P 

: rem 

23 
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1 1 40 

POKE53264,PEEK(53264)AND2 

: rem 

1 64 

1 1 50 

IFL=5THEN20000 

: rem 

53 

1 1 60 

POKE53279,PEEK(53279)AND2 

: rem 

1 78 

1 1 70 

GOTOl010 

: rem 

196 

1 999 

REM 

: rem 

1 92 

2000 

NH=137:NL=43:GOSUB6500 

: rem 

45 

201 0 

POKE53250,PEEK(53248) 

: rem 

1 53 

2020 

POKE53251,PEEK(53249) 

: rem 

1 56 

2030 

POKE53 2 64,PEEK(53264)*3 

: rem 

251 

2040 

POKE53269,3 

: rem 

93 

2050 

GOSUB6570 

: rem 

25 

2060 

RETURN 

: rem 

1 68 

2999 

REM 

: rem 

1 93 

3000 

IFPEEK (53279)=2THEN4000 

: rem 

52 

301 0 

IFPEEK(53251)<248THENPOKE53251 

,PEEK(532 51 )+8 :RETURN 



: rem 

32 

3029 

REM 

: rem 

178 

3030 

NH=8:NL=147:GOSUB6500 

: rem 

3 

3040 

GOSUB5000 

: rem 

1 2 

3050 

GOSUB6570:RETURN 

: rem 

52 

3999 

REM 

: rem 

1 94 

4000 

POKE53288,2 :SP=1:GOSUB6000 

: rem 

38 

401 0 

GOSUB5000:RETURN 

: rem 

36 

4999 

REM 

: rem 

1 95 

5000 

POKE532 69,1 :POKE53288,5 

: rem 

46 

501 0 

POKE53264,PEEK(53264)AND! 

: rem 

1 63 

5020 

RETURN 

: rem 

1 67 

5999 

REM 

: rem 

196 

6000 

NH=22:NL=227:GOSUB6500 

: rem 

46 

601 0 

SX=PEEK (532 48 + 2*SP) :IF(PEEK(53264)AND(SP + 1))=SP + 1THE 


NSX=SX+2 56 

: rem 

21 0 

6020 

SY=PEEK(53249+2*SP) 

: rem 

88 

6030 

SX=INT((SX-24)/8) 

: rem 

227 

6040 

SY=INT((SY-50)/8) 

: rem 

229 

6060 

SZ=1024+SX+40*SY+43-39*(SP=1): 

IFSZ<1024ORSZ>2 02 3THEN 


6090 

: rem 

57 

6070 

IFPEEK(SZ)=0THENS=S+1:GOSUB7000 :rem 

21 9 

\ 

6080 

POKESZ,32 

: rem 

'59 

6090 

IFSP=OTHENFORZ=1T03:NH=NH+Z:GOSUB6500:NEXTZ:GOSUB6 5 7 


0 

: rem 

46 

61 00 

GOSUB6570:RETURN 

: rem 

51 

6499 

REM 

: rem 

192 

6500 

POKE54 2 96,1 5 

: rem 

1 50 

651 0 

POKE54277,33 

: rem 

1 50 

6520 

POKE542 7 8,240 

: rem 

200 

6530 

POKE54 2 73,NH 

: rem 

1 96 

6540 

POKE542 72,NL 

: rem 

200 

6550 

POKE542 76,1 7 

: rem 

1 55 

6560 

RETURN 

: rem 

1 77 

6570 

POKE54 2 76,0 

: rem 

101 
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6580 

POKE54277,0 

: rem 

1 03 

6590 

POKE54278,0 

: rem 

105 

6600 

RETURN 

: rem. 

1 72 

6999 

REM 

: rem 

1 97 

7000 

PRINTCHR$(19)"PUNTEGGIO"S SPRINT"RAZZI 

PERDUTI";L 
: rem 

1 52 

701 0 

RETURN 

: rem 

1 68 

8999 

REM 

: rem 

1 99 

9000 

DATA255,255,195,195,195,195,255,255 

: rem 

3 

9999 

REM 

: rem 

200 

1 0000 

DATA2 55,0,0, 255,240,0, 1 5,255,0, 1 5, 

255.240, 254,7 


3,63 

: rem 

9 

1 001 0 

DATA2 54,73,63, 1 5,255,240, 1 5, 255,0, 

255,240,0, 

255 


,0,0 

: rem 

10 

1 0020 

DATA0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0 

, 0,0,0 

: rem 

89 

1 0030 

DATA0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0 

, : rem 

1 1 4 

1 0099 

REM 

: rem 

231 

1 01 00 

DATAO,195,0, 0,195,0, 0,126,0, 0,60,0 

, 0,24,0, 0 

,24 


,0 

: rem 

65 

10110 

DATAO,60,0, 0,126,0, 0,255,0, 0,255,0 

, 0,255,0, 

0,1 


26,0 

: rem 

1 65 

1 01 20 

DATAO,126,0, 0,60,0, 0,60,0, 0,24,0, 

0,24,0 

: rem 

1 35 

1 01 30 

DATAO,0,0, 0,0,0, 0,0,0, 0,0,0 

: rem 

51 

1 9999 

REM 

: rem 

249 


20000 H=100:NL=150:FORJ=lTO50:NH=H+J:GOSUB6500 :NEXT:GOSUB 

6570 :rem 228 

20010 PRINT:PRINT:PRINT"{ 2 SPAZI}PREMI UN TASTO PER GIOC 

ARE DI NUOVO." : rem 4 8 

20020 1$="":GETI$:IEI$=""THEN20020 :rem 67 

20030 PRINTCHR?(147) : rem 112 

20040 RUN80 ; rem 83 



A chi non piacerebbe 3 uidare un 
bolide di formula 1? Con questo 
affascinante gioco è possibile imi¬ 
tare il grande Prost o lo sfortunato 
Alboreto. 

Mediante il joystick in porta # 2 si 
sposta a destra o a sinistra l'auto¬ 


mobile. Il fine di questo fantastico 
gioco è di riuscire ad andare più 
avanti possibile, e fare naturalmen¬ 
te più punti, senza scontrarsi con i 
margini della strada. Il compito al¬ 
l’apparenza sembra facile ma inve¬ 
ce... provare per credere!!! 
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1 000 

1 005 

1 01 0 

1 020 

1 030 

1 040 

1 050 

1 060 

1 070 

1 0 80 

1 090 

1 1 00 

ino 

1 1 20 

1 1 30 

1 1 40 

1 1 50 

1 1 60 

1 1 70 

1 1 80 

1 1 90 

1 200 

1 21 0 

1 220 

1 230 

1 240 

1 250 

1 260 

1 270 

1 280 

1 290 

1 300 

1 31 0 

1 320 

1 330 

1 340 

1 350 

1 360 

1 370 

1 380 

1 390 

1 400 

1 41 0 

1 420 

1 430 

1 440 

1 450 

1 460 

1 470 

1 480 

1 490 


149 

90 

61 

24 

1 4 

1 69 

1 1 9 

1 30 

1 72 

81 

70 

1 54 

203 

1 27 

1 69 

63 

24 

109 

75 

42 

1 33 

1 02 

39 

241 

42 

1 4 

41 

1 73 

98 

9 

1 0 

1 56 

2 

1 63 

5 

51 

86 

1 57 

206 

1 1 7 

124 

248 

1 09 

65 

83 

109 

232 

101 

1 27 

78 

209 


REM *** MONTECARLO *** : rem 

REM ***• PAPERSOFT *** : rem 

PRINTCHR$(147) : rem 

POKE53 2 80,0 :POKE532 81 ,0 :rem 

GOSUBl 720 : rem 

REM : rem 

FORI = 0TO6 2:READJ:POKE8 3 2 + I,J:NEXT : rem 

FORI = 0TO62: READJ:POKE8 96 + I,J:NEXT : rem 

REM : rem 

POKE2040 ,13 :VC=532 4 8:POKEVC+21 ,1 :rem 

POKE2 041 , 1 4 :POKEVC+40,8 : rem 

POKEVC+3 9,14 :POKEVC+2 3,3:POKEVC+2 9,3 :rem 

POKEVC+0,150 :POKEVC+1 ,180 : rem 

POKEVC+2 8,2 : rem 

REM : rem 

S=542 72:FORI = 0TO24:POKES+1,0 :NEXT : rem 

POKES+5,31 :POKES + 6,240 : rem 

POKES + 2 4,15 :rem 

L=12 :X=150 :W=12 :rem 

POKE64 6, 1 4 :rem 

PRINTCHR$(147):SE=0 :rem 

FORI = 1T020 : rem 

PRINTTAB(L)"[< + >]"SPC(W)"[< + >]" : rem 

NEXT:POKEVC+31,0 :rem 

POKES + 4,33 :POKES,100 :POKES + 1 ,4 : rem 

PRINTCHR$(19)CHR$(158)"PUNTI :" : rem 

PRINTCHR$(19)TAB(28)"REC• :" : rem 

REM : rem 

DIR=1 :IFRND(1)<.5THENDIR= 2 :rem 

SE=SE+1:Q=Q+1 :rem 

IFDIR=1THENL=L-1 : rem 

IFL<10THENL=L+1 : rem 

IFDIR=2THENL=L+1 : rem 

IFL>20THENL=L-1 : rem 

PRINTCHR$(19)CHR$(17); : rem 

PRINTCHR$(157)CHR$(148) : rem 

POKE218,160 : rem 

PRINTTAB(L)"t"SPC(W)"t" : rem 

P=PEEK(56320) : rem 

IFP = 12 3THENZ = 1 :rem 

IFP=119THENZ = 2 :rem 

ONZGOSUBl510,1530 :rem 

POKEVC+0,X . : rem 

PRINTCHR$(19)TAB(6) ;SE : rem 

IFSE>HITHENHI = SE : rem 

PRINTCHR$(19)TAB(34);HI : rem 

IFQ=100THENW=W-1:Q=0 :rem 

IFPEEK(VC+31)ANDl=1THENl 560 : rem 

POKEVC+31,0 : rem 

IFW=8THENW=12 : rem 

GOTOl 270 : rem 
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1 500 

REM 

: rem 

1 70 

1 51 0 

X=X-4:IFX<10THENX=10 

: rem 

248 

1 520 

RETURN 

: rem 

1 68 

1 530 

X = X+4:IFX> 2 50 THENX=2 50 

: rem 

1 02 

1 540 

RETURN 

: rem 

1 70 

1 550 

REM 

: rem 

1 75 

1 560 

POKEVC+21,2 

: rem 

1 28 

1 570 

POKEVC+2,X :POKEVC+3,180 

: rem 

1 55 

1 580 

FORV=15TOOSTEP-.2 :POKES+1,2+V 

: rem 

65 

1 590 

POKES + 4,129 :POKES + 24,V 

: rem 

71 

1 600 

POKEVC+37,INT(RND(TI)*15) 

: rem 

238 

1 61 0 

POKEVC+3 8,INT(RND(TI)*15) 

: rem 

240 

1 620 

NEXT:POKES+4,0 

: rem 

1 27 

1 630 

POKEVC+21,0 

: rem 

124 

1 640 

REM 

: rem 

1 75 

1 650 

PRINTCHR$(19) 

: rem 

21 

1 660 

POKE646,INT(RND(TI)*15) 

: rem 

1 02 

1 670 

FORI=1T04:PRINTCHR$(17):NEXT 

: rem 

61 

1 680 

PRINTTAB(7)"PREMI 'FIRE' "; 

: rem 

43 

1 690 

PRINT"PER GIOCARE" 

: rem 

1 30 

1 700 

IFPEEK(56320)<>111THENl650 

: rem 

21 3 

1 71 0 

GOTOl080 

: rem 

203 

1 720 

REM 

: rem 

1 74 

1 730 

PRINTCHR$(19)CHR$(30) 

: rem 

201 

1 740 

PRINTTAB(15)"{ 3 GIU'}MONTECARLO" 

: rem 

82 

1 840 

PRINTCHR?(17)CHR$(17)CHR$(17) 

: rem 

1 36 

1 850 

PRINTTAB(8)"PREMI UN TASTO PER GIOCARE" 

: rem 

1 39 

1 860 

GETA$:IFA$=""THENl860 

: rem 

1 93 

1 870 

RETURN 

: rem 

1 76 

1 880 

REM 

: rem 

1 81 

1 890 

DATA0,248,0,0,248,0,0,248,0,5,141 

: rem 

1 05 

1 900 

DATA0,7,239,0,5,221 ,0,1,220,0,1 

: rem 

241 

1 91 0 

DATA2 52,0,1 ,140,0,1,36,0,1,116,0,1 

: rem 

1 24 

1 920 

DATA2 52,0,1 , 252,0,3,86,0,54,21 9,96 

: rem 

166 

1 930 

DATA55,223,96,63,87,224,54,251,96 

: rem 

1 51 

1 940 

DATA50,2,96,7,255,0,7,255,0 

: rem 

84 

1 950 

REM 

: rem 

1 79 

1 960 

DATA0,32,0,2,73,52,6, 1 57,1 93,1 04 

: rem 

67 

1 970 

DATAI 88,29,131 , 54,124,44,118,249 

: rem 

97 

1 980 

DATA65,231 , 242,31, 227,178,78,8,57 

: rem 

1 51 

1 990 

DATA39,63,156,47,159,30,73,222,124 

: rem 

1 94 

2000 

DATA36,1 94,240,73,248,1 98,1 9,253 

: rem 

91 

201 0 

DATA216,71,205,144,23,15,36,16,103 

: rem 

1 57 

2020 

DATA72,13,146,80,0,8,144,3,87,32 

: rem 

66 
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A 

O* 


^Fuga da Atlantide 


Joystick 



Una nave desìi Stati Uniti, scanda- 
Sliando il fondo con potenti sonar, 
è riuscita a trovare l'antica città di 
Atlantide, nella quale si dice che 
nel passato fossero abitati esseri 
umani capaci di respirare sott'ac¬ 
qua. 

Voi vestite i panni di un esperto 
sub e manovratore di navette su¬ 
bacquee, e perciò ricevete l'ordine 
di andare a esplorare l'antica città 
sommersa. 

Arrivati nelle vicinanze delle appa¬ 
renti rovine sentite qualche cosa 
che vi trascina in una caverna sot¬ 
tomarina, e subito dopo vi trovate 
in una base fantastica, piena di lu¬ 
ci, nella quale desìi strani esseri vi 
catturano e vi rinchiudono in una 
cella, sotto la sorveslianza di una 
guardia. 

Ecco la vostra situazione all’inizio 
di questo fantastico adventure per 
C64 che vi farà vivere ore e ore di 
divertimento nel tentativo di fuggi¬ 
re dalla base sottomarina attrezza- 
tissima, che appare come una città 
con tanto di servizi sociali, nella 
quale sono nascosti gli oggetti che 
vi aiuteranno a fuggire, e che, per 
ottenerli, vi daranno molto da pen¬ 
sare. 

Infatti questo adventure è molto 
difficile da risolvere, ed è pieno di 
situazioni enigmatiche delle quali 
si può uscire vivi solo con l'astuzia. 
Per dare un comando devi digitare 
prima il verbo e premere RETURN, 
e poi digitare l'oggetto, e premere 


RETURN. 

Dopo aver ricevuto la risposta a un 
comando il computer crea un 'atte¬ 
sa prima di far vedere la schermata 
successiva; se volete eliminare 
questa attesa, premete un qualsia¬ 
si tasto subito dopo che il compu¬ 
ter ha risposto al comando. 

Per aituarvi nella vostra fuga ecco 
la lista dei comandi e degli oggetti 
presenti nel gioco: 

Lista desìi Ossetti 
Oggetto A bbreviazione 

Idrogeno 
attrezzatura 
foro-carburante 
armadietto 
guardia 
scienziato 


gladiatore 

porta 

chiave generale 

frutto 

gorilla 

mostro acquatico 

grosso vetro 

scaletta 

maniglia 

airiock 

catene 

microfono 

guerriero 

org 

piccolo org 

terreno 

giacca 

fiore 

lettore 

libro 


i 

at 

fo 

ar 

gua 

sci 

gì 

PO 

eh 

fr 

go 

mo 

gr 

sca 

ma 

ai 

ca 

mi 

gue 

org 

pie 

te 

gì 

fi 

le 

ti 
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semi se 

asta a 

muro mu 

spranga di ferro sp 

Usta del Comandi 

Comando Abbreviazione 

nord no 

sud su 

est e 

ovest ov 

prendi pr 

raccogli r 

afferra af 

lascia las 

molla mo 

lancia lan 

uccidi u 

sfida sf 

guarda g 

oltrepassa ol 

cerca c 

apri ap 

schiaccia sch 

sblocca sb 

indossa ind 

mangia ma 

nutri . nu 

inserisci ins 

scala sca 

arrenditi ar 

alza al 

pianta pi 

salta sa 


Infine ecco la pianta della città di 
Atlantide con una lista dei luoghi 
e i numeri per riconoscerli. 


4) campo 

5) uscita bloccata dall'arena 

6) Parte avanzata della città 

7) Parte primitiva della città 

8) Parte vecchia della città 

9) sentiero 

10) zona di raccolta cibo 
IV cupola centrale 

12) biblioteca 

13) Reattore nucleare 

14) Area di idrolisi dell’acqua 

15) Stazione radio di Atlantide 

16) Bordo della città 

17) Passaggio fuori dal regno 

18) Zona di lavoro degli schiavi 

19) Centro di selezione animali 

20) Punto di osservazione subac¬ 
quea 

21) Zona vietata 

22) Magazzino degli equipaggia¬ 
menti 

23) Lago scuro 

24) Airlock 

25) Piede della collina 

26) Lato della collina 

27) Cima della collina 

Ed ora buon divertimento e buona 
fuga. 


1) cella 

2) univesità 

3) arena 
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40 

X = 0 :PRINT"{CLR}" 

: rem 

1 99 

4 5 

REM 

: rem 

77 

50 

GOSUBl520 

: rem 

1 73 

60 

GOSUBl630 

: rem 

1 76 

70 

PRINT"{ 2 GlU'}VUOI VEDERE 

LE ISTRUZIONI (S/N)INPUT 


Z$ : IFZ$="S"THEN80 

: rem 

95 

71 

REM 

: rem 

« 

76 

75 

IFZ $ <>"S"THENl 60 

: rem 

80 

80 

PRINT"{CLR}":PRINT"DURANTE 

UNA SPEDIZIONE SOTTOMARINA 


VIENI"; 

: rem 

207 

82 

PRINT"CATTURATO DA UN POPOLO ACQUATICO CHE TI TIENE 

PR 


IGIONIERO!1" 

: rem 

248 

90 

FORZ = 1T03000:GETA$:IFA$<>" 

"THENGOTOl00 :rem 

226 

95 

NEXT 

: rem 

1 73 

100 PRINT"{CLR}":PRINT"PER SC 

APPARE DOVRAI OSSERVARE I 

LU 


OGHI " 

: rem 

1 98 


101 PRINT"IN CUI TI MUOVI E ARRIVARE ALLA TUA NA-" 

: rem 105 

102 PRINT"VETTA SOTTOMARINA CON TUTTO IL NECESSA- RIO PER 

FUGGIRE." :rem 133 

110 FORZ = 1T03 000 :GETA$: IFA$ <>""THENGOTOl20 : rem 13 

115 NEXT : rem 214 

120 PRINT"{CLR}":PRINT"DIGITA IL COMANDO E L'OGGETTO QUAN 



DO IL" 

: rem 

1 20 

1 21 

PRINT"COMPUTBR TE LO CHIEDE" 

: rem 

1 70 

1 30 

FORZ = 1T03000 :GETA$: IFA$<>""THENGOTOl 40 

: rem 

1 7 

1 35 

NEXT 

: rem 

21 6 

1 40 

PRINT"{CLR}PRINT"SE UNA COMBINAZIONE 

OGGETTO-COMAND 


O NON" 

: rem 

48 

1 41 

REM 

: rem 

1 22 

1 42 

PRINT"FUNZIONA, PROVANE UN'ALTRA" 

: rem 

87 

1 50 

FORZ = 1T03000 :GETA$: IFA$<>""THENGOTOl60 

: rem 

21 

1 55 

NEXT 

: rem 

21 8 

1 60 

PRINT"{CLR}":A=1:W=0:V=0:U=0 

: rem 

21 9 

1 65 

REM 

: rem 

128 

1 70 

W=W+1:RESTORE:FORT=1TOl000:GETA$:IFA$<> 

""THENGOTOl80 



: rem 

240 

1 75 

NEXT 

: rem 

220 

1 80 

PRINT"{CLR}":IFE(6)=-2ANDU<6THENU=U+l 

: r em_ 

58 

1 85 

REM 

: rem 

1 30 

1 90 

IF(A=60RA=11)ANDE(11)=0THENGOSUBl 800 :GOTO720; rem 

107 

200 

IFW> 3 5ANDE ( 1 ) O-2THENG0SUB1 81 0 :GOTO7 2 0 

: rem 

22 

21 0 

IFA=21ANDE(12)=A ANDE(11)=0THENE(11)=-2 

:E(12)=-2: 

GOSU 


B1820 

: rem 

1 56 

220 

IFE(20)=AANDE(24) =-1THENGOSUBl 830:E(20) 

=-2:E(21)= 

A 


- 

: rem 

253 

230 

IFE(25)=AANDE(26)=0THENE(26)=-2:E(27)=0 

:GOSUBl840 



- 

: rem 

21 1 

240 

FORB=lTOA:READAS:NEXTB:PRINT"{ 2 DES}"; 

A$:REM 




: rem 

1 38 
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250 

PRINT"USCITE:";:IFA(A)<>OTHENPRINT"{PUR}NORD :{RED}"; 



: rem 

80 

255 

REM 

: rem 

1 28 

260 

IF8 ( A) OOTHENPRINT" {BLKjSUD: {RED}"; 

: rem 

1 78 

265 

REM 

: rem 

1 29 

270 

IFC(A)< >OTHENPRINT"{GRN}EST:{RED}"; 

: rem 

66 

275 

REM 

: rem 

1 30 

280 

IFD (A) <>OTHENPRINT"{BLU}OVEST :{RED}"; 

: rem 

234 

285 

REM 

: rem 

1 31 

290 

PRINT:PRINT"OGGETTI[<1>]"; 

: rem 

1 05 

295 

REM 

: rem 

1 32 

300 

H=0:FORC=1T03 0 :1FE(C)<>ATHENNEXT:GOT0310 

: rem 

242 

305 

PRINT":";H$(C); :NEXT 

: rem 

146 

31 0 

PRINT:PRINT"{RED}{ 40 *}": REM 

: rem 

1 02 

320 

PRINT:PRINT"INVENTARIO: [<7>]"; : REM 

: rem 

89 

330 

F=0 :FORC = l TO30 : IFE (C) OOANDE (C ) < >- 1 ORF = 6THENNEXT : 

GOTO 

# 

340 

: rem 

1 95 

335 

PRINT":";H$ (C) ;:NEXTC 

: rem 

21 6 

340 

PRINT :PRINT :PRINT"{RED} { 40 *}": REM 

: rem 

48 

350 

IFA=16ANDE(17)<>0THENGOSUBl850:GOTO720 

: rem 

1 6 

360 

PRINT"COMANDO"; :D$ = "":M=0:N = 0 

: rem 

1 78 

370 

IFF>1ANDA=26THENPRINT"LA SCALETTA E' ROTTA 

. . ":GOTO72 0 



: rem 

21 1 

380 

IFA= 1 6ANDE ( 1 7) OOTHENGOSUBl 850 :GOTO720 

: rem 

1 9 

390 

IFA=16THENPRINT"{GIU'}IL GUERRIERO VEDE LE 

CATENE 

E P 


ENSA CHE" 

: rem 

91 

391 

REM 

: rem 

1 29 

395 

IFA=16THENPRINT"NON ANDRAI LONTANO" 

: rem 

202 

400 

IFE ( 1 8) = 0THENGOSUBÌ 860 -.GOTO720 

: rem 

25 

41 0 

IFA=21ANDE(12)=ATHENPRINT"{GIU'}IL MOSTRO 

MARINO 

TI H 


A PRESO!!":GOTO720 

: rem 

1 56 

420 

INPUTD$:DD$ =LEFT$(D$,3) :M=0 

: rem 

1 2 

422 

FORC=1T02 7 

: rem 

60 

424 

IFLEFT$ ( DD$,1 ) =B$(C ) ORLEFT$ (DD$,2) =B$(C)ORDD$=B$(C)TH 


ENM=C : C = 2 7 : NEXTC 

: rem 

234 

426 

IFM>0 THENGOT04 4 0 

: rem 

230 

430 

NEXTC:GOT0450 

: rem 

37 

440 

IFM>0ANDM<50RM= 2 40RM=2 80RM=2 9THENG0T04 90 

: rem 

52 

445 

GOTO470 

: rem 

1 1 3 

450 

PRINT"NON CONOSCO IL VERBO ' " ; D$ ; " : GOTO!70 : rem 

247 

460 

PRINT" ' " ; D$ ; " '?" : GOTO!70 

: rem 

37 

470 

PRINT"OGGETTO ";:D$="":N=0 

: rem 

21 6 

480 

INPUTE$:EE$=LEFT$(E$,3):FORC=lTO30 

: rem 

250 

482 

IFEE$ =G$(C ) ORLEFT$ ( EE$,1 ) =G$(C ) ORLEFT$ ( EE$ 

,2)=G$(C)TH 


ENN=C:C=30:NEXT : GOTO4 90 

: rem 

203 

483 

REM METTE ( LEFT) NELLA LINEA DOPO LA PRESSIONE DI 

RET 


URN 

: rem 

55 

485 

NEXTC 

: rem 

35 

490 

PRINTC$(M) ; : IFM>0ANDM< 50RM= 2 40RM= 280RM= 29THEN500 




: rem 

255 





495 

PRINT" ";H$(N) 

: rem 

1 85 

500 

PRINT 

: rem 

34 

505 

IFM>17THENG0T051 5 

: rem 

31 

51 0 

0NMG0T05 90,590,590,590,740,740,740,790, 

790,790,840,92 


0,850,850,850,960,960 

: rem 

238 

51 5 

M=M-17:ONMGOTO960,1050,1100,1130,1170,1210,1240,1250, 


1 31 0,1 350 :M=M+17 

: rem 

42 

520 

PRINT"TI RENDI CONTO DI QUELLO CHE HAI 

DETTO?":GOTOl7 


0 

: rem 

1 97 

530 

PRINT"CE L'HO GlA:GOTOl70 

: rem 

254 

540 

PRINT"MI HAI SCAMBIATO PER UN MULO?NON 

POSSO 



{ 2 SPAZI}PORTARE TUTTO!":GOTOl70 

: rem 

21 1 

550 

PRINT"FATTO.":GOTOl 70 

: rem 

34 

560 

PRINT"NON LO VEDO QUIGOTOl70 

: rem 

59 

570 

PRINT"NON CE L'HO !":GOTOl70 

: rem 

22 

580 

PRINT"NON VEDO UN POSTO PER LASCIARLO": 

GOl 70 : rem 

1 68 

590 

IF(M<>3ANDA=1)THENV=1 :GOSUBl 870 tGOTOl70 

: rem 

1 30 

600 

IFM=3ANDA=1ANDV=0THENGOSUBl 880 :GOT01 70 

: rem 

1 33 

61 0 

IFV=1THENV= 0 :GOSUBl 890 

• 

: rem 

1 04 

620 

IFE(7)=ATHENPRINT"IL GLADIATORE NON TI 

LASCIA PASSARE 


! ":GOTOl70 

.. :rem 

83 

630 

IFE(8)=AANDM=2THENPRINT"NON PUOI PASSARE NELL'ANTICA 


PORTA!":GOTOl70 

: rem 

238 

640 

IFE(20)=AANDM=2THENPRINT"L’ORG E' NELLA 

STRADA":GOTOl 


70 

: rem 

43 

650 

IFE(29)=AANDM=1THENGOSUBl900:GOT0170 

: rem 

1 87 

660 

DV=A 

: rem 

1 80 

670 

IFM=1THENA=A+A(A) 

: rem 

21 1 

680 

IFM=2THENA=A+B(A) 

: rem 

21 4 

690 

IFM= 3THENA=A+C(A) 

: rem 

21 7 

700 

IFM=4THENA=A+D(A) 

: rem 

21 1 

71 0 

IFA=DVTHENPRINT"NON C'E' USCITA":GOTOl70 : rem 

21 2 

71 5 

GOTOl70 

: rem 

1 1 0 

720 

PRINT:PRINT"PREMI SPAZIO PER RICOMINCIARE IL GIOCO 



• 

f 

: rem 

1 25 

730 

GETA$: IFA$<>" "THEN730 

: rem 

1 48 

735 

RUN 

: rem 

1 48 

740 

IFN<> 1 ANDNO2ANDNO9ANDNO 1 0ANDNO1 5ANDNO! 7ANDNO! 8A 


NDN< >21 ANDNO 2 3THEN7 4 5 

: rem 

149 

742 

GOTO750 

: rem 

1 1 4 

745 

IFNO 24ANDN< >2 6ANDNO 2 8ANDN03 0THEN52 0 

- : rem 

41 

750 

IFE(N)=0ORE(N)=-lTHEN530 

: rem 

99 

760 

IFF = 6THEN54 0 

: rem 

1 73 

770 

IFE (N) OATHEN560 

: rem 

1 50 

780 

E(N)=0:GOTO550 

: rem 

253 

790 

IFE(N)< >0ANDE(N)<>-1ORN=23ANDE(24) =-1ANDH > 4 THE N 5 7 0 



- 

: rem 

1 59 

800 

IFN= 11 THEN520 

: rem 

21 8 

81 0 

IFH = 6THEN5 80 

: rem 

1 75 

820 

IFN= 2 3 ANDE(24) =-lTHENE(24) =A 

: rem 

44 

830 

E(N) =A:GOTO550 • 

: rem 

1 0 
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840 

850 
855 

860 

870 

880 

890 
895 

900 
91 0 
920 
930 
940 

950 

960 
970 
980 
990 

1 000 
1 01 0 

1 020 
1 030 

1 040 
1 050 
1 060 

1 070 
1 075 
1 080 
1 090 
1 1 00 
ino 
1 1 20 

1 1 30 
1 1 40 
1 1 50 

1 1 60 
1 1 70 


PRINT"NON HAI ABBASTANZA ENERGIA PER FARLO IN UN'ARIA 
COSI' LEGGERA":GOTOl70 : rem 44 

IFE (N) OAANDE (N) < >0 ANDE (N) 0-1 THEN5 60 : rem 1 3 3 

IFN<>6 ANDNO1 3 ANDN < > 1 6ANDNO 2 2 ANDNO 2 3THENG0SUB1 91 0:G 
OTOl70 : rem 180 

IFN=22THENPRINT"LA TERRA E' PRONTA PER PIANTARE DEI S 
EMI":GOTOl70 : rem 173 

IFN= 2 3THENPRINT"C'E ' UN OCCHIELLO NELLA GlACCA":GOTOl 
70 : rem 5 6 

IFN=1 6THENPRINT"PER APRIRE L'AIRLOCK BISOGNA ALZARLO" 
:GOTOl70 : rem 102 

IFN=1 3ANDE (N) OATHEN560 : rem 91 

IFN= 3THENPRINT"DEI PESCI SONO SALTATI FUORI DALL'ALTR 
A PARTE":GOTOl70 : rem 78 

IFE(N)< >ATHENPRINT"NON LI VEDO QUI!":GOTOl70 : rem 144 

E(6)=-2:GOSUBl 92 0 :GOTOl70 : rem 147 

IFNO7THEN520 : rem 239 

IFE (N) OATHEN900 : rem 146 

IFU=0ORU=6THENPRINT"NON HAI BATTUTO IL GLADIATORE":GO 
TO720 


{ 5 SPAZI}GLADIATORE":GOTOl70 

IFN< > 4ANDN < > 80RH= 6 THEN5 2 0 
IFE (N) OATHEN560 
IFN=4 ANDMO 1 7THEN1 01 0 


70 

PRINT"L'ARMADIETTO SI APRE...E SI CHIUDE" 
IFE(2) =-2THENE(2) =A:PRINT"DEGLI EQUIPAGGI 
UB ESCONO FUORI" 

GOTOl70 

IFN<>2 ANDN<>2 3ANDN0 2 4THEN5 2 0 


GOTOl70 


IFE (N) O0THEN570 

IFN= 2 4ANDE (2 3) 0-1 THEN5 80 

IFN=2 4THENGOSUB1 930 :E(N)=-l 

E(N)=-1 : GOTO550 

IFNOl 0THEN520 

IFE (N) O0THEN570 

E(N)=-2:PRINT"FATTO...MA EP 

RI":GOTOl70 

IFNOl 1 THEN520 

IFE (N) OATHEN560 


OTOl70 

E(10)=-2:E(11)=0 :GOSUBl 94 0 :GOTOl70 
IFNOl THEN520 


: r en-i 

1 80 

TERE IL 

: rem 

1 51 

: rem 

31 

: rem 

1 52 

: rem 

226 

:GOTOl70 

: rem 

147 

0 : rem 

7 

ORA)":GOTOl 

: rem 

62 

: rem 

21 0 

AMENTI 

DA S 

: rem 

1 77 

: rem 

1 50 

: rem 

22 

OTOl70 

: rem 

1 50 

: rem 

1 76 

: rem 

1 91 

: rem 

1 37 

: rem 

86 

: rem 

64 

: rem 

1 71 

ALTRI 

ESSE 

: rem 

63 

: rem 

68 

: rem 

1 90 

NUTRIRLO":G 

: rem 

64 

: rem 

141 

: rem 

23 


19 


1180 IFE(N) O0THEN570 :rem 178 

1190 IFAOl 3THENPRINT"NON VEDO NESSUN POSTO DOVE INSERÌRL 



0":GOTOl70 


: rem 

243 

1 200 

E(1)=-2:GOSUBl950:GOTO!70 


: rem 

1 86 

1 21 0 

IFNOl 4THEN520 


: rem 

70 

1 220 

IFE(N) < >ATHEN5 60 


: rem 

1 89 

1 230 

IFA=26ANDE(15)=0THENA= 2 5 : E ( N)=A:GOTO550 

: rem 

52 

1 232 

IFA=2 6THENA=2 7 : E(N)=A:GOTO550 


: rem 

252 

1 234 

IFA=2 5THENA= 2 6 : E(N)=A:GOTO550 


: rem 

252 

1 236 

IFA= 27THENA= 26 :E(N)=A:GOTO550 


: rem 

0 

1 240 

PRINT"{ 4 GlU 1 }SEI SICURO? (S/N)"; 


: rem 

45 

1 241 

REM 


: rem 

1 72 

1 245 

GETA$:IFA$ = ""THENl 245 


: rem 

1 87 

1 247 

IFA$ = "S"THEN72 0 


: rem 

94 

1 249 

GOTO!70 


: rem 

1 61 

1 250 

IFNOl 6THEN520 


: rem 

76 

1 260 

IFAO 2 4THEN560 


: rem 

67 

1 270 

IFE(15)< > OTHENGOSUBl 960:G0T0170 


: rem 

1 37 

1 280 

IFE ( 2) 0-1 THENGOSUB1 970 :GOTO720 


: rem 

1 34 

1 290 

Y= 150-W:IFY>XTHENX=Y 


: rem 

81 

1 300 

PRINT"HAI FINALMENTE TROVATO LA TUA 

NAVETTA E SEI 

: FU 


GGITO ! ! !" 


: rem 

1 61 

1 305 

PRINT:PRINT" { 2 GIU'}PUNTI: ";Y;"{ 2 

DES}RECORD: 

M ; X 


:G0T072 0 


: rem 

50 

1 307 

REM 


: rem 

1 75 

1 31 0 

IFN<>2 7THEN52 0 


: rem 

75 

1 320 

IFE(N)<>OTHENPRINT"NON LI HO!":GOTO170 

: rem 

38 

1 330 

IFA<>40RH=6THENPRINT"N0N VEDO NESSUN 

POSTO 

PER PIANT 


ARLI.":GOTOl70 


: rem 

239 

1 340 

E ( N)=-2 : E(28)=A:GOSUBl 980 :GOTOl70 


: rem 

1 51 

1 350 

IFNO29THEN520 


: rem 

81 

1 360 

IFAO7THEN560 


: rem 

21 

1 370 

IFE ( 28)<>0THENPRINT"NON HO NULLA PER 

SALTARLO":GOTOl 


70 


: rem 

86 

1 380 

A=10:PRINT"SEI RIUSCITO A SALTARE IL 

MURO" : 

GOTOl70 




: rem 

57 

1 390 

DATACELLA,UNIVERSITÀ ' ,ARENA,CAMPO 


: rem 

21 2 

1 392 

DATAUSCITA BLOCCATA DALL ' ARENA,PARTE 

AVANZATA DELLA 


CITTA' 


: rem 

1 46 

1 393 

DATAPARTE PRIMITIVA DELLA CITTA' 


: rem 

25 

1 394 

DATAPARTE VECCHIA DELLA CITTA',SENTIERO,RISERVE DI C 


IBO,CUPOLA CENTRALE 


: rem 

33 

1 396 

DATABIBLIOTECA CENTRALE 


: rem 

9 

1 400 

DATAREATTORE NUCLEARE,ZONA DI IDROLISI DELL 

/ACQUA 

, ST 


AZIONE RADIO 


: rem 

1 59 

1 402 

DATABORDO DELLA CITTA',PASSAGGIO FUORI DAL 

REGNO 





: rem 

240 

1 403 

DATAZONA DI LAVORO DEGLI SCHIAVI 


: rem 

230 

1 404 

DATAZONA DI SELEZIONE ANIMALE f OSSERVATORIO 

ACQUATICO 


/ ZONA VIETATA 


: rem 

53 
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1 406 
1 41 0 

1 41 1 
1 420 

1 430 

1 440 

1 450 

1 460 

1 465 
1 470 

1 471 
1 475 

1 477 
1 480 


DATAMAGAZZINO EQUIPAGGIAMENTI SUB : rem 217 
DATALAGO SCURO,AIRLOCK,PIEDE DELLA COLLINA,LATO DELL 
A : rem 1 1 7 
DATACIMA DELLA COLLINA : rem 95 
DATA0,1,1,0,0,0,3,-3,2,3,0,0,0,0,-3,5,0,0,0,0,0,-5,2 
,0,0,0,0 : rem • 12 
DATA0,0,-1,-1,3,0,0,0,0,-3,-2,3,-3,0,0,0,5,0,0,0,-5, 
0,0,0,-2,0,0 :rem 193 
DATA1,0,2,0,0,-3,-3,0,-3,0,0,-3,4,-4,4,-4,0,-5,0,-5, 
2,2,0,0,0,0,0- :rem 0 
DATA0,-1,3,3,-2,3,0,0,3,4,0,4,5,0,5,0,-4,0,-4,0,0,0, 
-2,-2,0,0,0 : rem 167 


DATA NO,SU,E,OV,PR,R,AF,LAS,MO,LAN,U,SF,G,OL,C,AP,SC 
H,SB,IND,MA,NU,INS : rem 143 
DATA SCA,AR,AL,PI,SA : rem 190 
DATANORD,SUD,EST,OVEST,PRENDI,RACCOGLI,AFFERRA,LASCI 
A,MOLLA,LANCIA,UCCIDI : rem 178 
DATASFIDA,GUARDA,OLTREPASSA,CERCA : rem . 226 
DATAAPRI,SCHIACCIA,SBLOCCA,INDOSSA,MANGIA,NUTRÌ,INSE 
RISCI,SCALA,ARRENDITI : rem 229 
DATAALZA,PIANTA,SALTA : rem 159 
DATAI,AT,FO,AR,GUA,SCI,GL,PO,CH,FR,GO,MO,GR,SCA,MA,A 


1 482 
1 490 

1 491 

1 492 

1 494 

1 500 
1 51 0 

1 51 5 
1 520 
1 530 
1 540 
1 550 

1 560 

1 570 
1 580 
1 590 
1 600 
1 61 0 
1 620 
1 630 


-l • -L crai ^ «L 

DATAPIC,TE,GI,FI,LE,LI,SE,A,MU,SP : rem 7 

DATAIDROGENO,ATTREZZATURA,FORO-CARBURANTE,ARMADIETT 
,GUARDIA,SCIENZIATO : rem 24 

DATAGLADIATORE,PORTA,CHIAVE GENERALE,FRUTTO,GORILLA 
MOSTRO ACQUATICO : rem 13 

DATAGROSSO VETRO,SCALETTA,MANIGLIA,AIRLOCK,CATENE,M 
CROFONO,GUERRIERO : rem 

DATAORG,PICCOLO ORG,TERRENO,GlACCA,FIORE,LETTORE,LI 
RO . SF.MT . ASTA .MURO r rc>m 17 


riUOlKU rtLyUrtliLU 

DATAGROSSO VETRO,___*____ 

CROFONO,GUERRIERO 

DATAORG,PICCOLO ORG,TERRENO,GlACCA,FIORE 
RO,SEMI,ASTA,MURO : rem 

DATASPRANGA DI FERRO : rem 

DATAI 4,-2,13,22,1,2,3,5,8,10,19,21 , 20,25,27,24,18 
,16,17,-2,4,6,9,12,11 :r em 

DATA-2,-2,7,23 
REM ***•MATRICI *** 

DIML$(2 7) :FORT=1T02 7 :READL$(T) :NEXT 
DIMA(2 7) ,B(27) ,C (2 7) ,D (2 7) : rem 

FORT=1T02 7 :READA(T) :NEXT:FORT=1T02 7 :READB(T) :NEX f 

: rem 


: rem 
rem 
rem 
rem 
rem 


FORT=1T02 7 :READC(T) :NEXT:FORT=1T027 

:READD(T):NEXT 



: rem 

223 

DIMB$(27) :FORT=1T02 7 :READB$(T) :NEXT 


: rem 

1 44 

DIMC$(2 7) :FORT=1T02 7 :READC?(T) :NEXT 


: rem 

147 

DIMG$(30) :FORT=1T03 0 :READG$(T) :NEXT 


: rem 

1 44 

DIMH$(30):FORT=lTO30:READH$(T):NEXT 


: rem 

1 38 

DIME(30) :FORB = 1T030 :READE(B) :NEXT 


: rem 

25 

RETURN 


: rem 

1 69 

PRINT"{CLR}":POKE53 2 80,6:POKE53281 , 

1 5 

: rem 

249 


21 


1 640 
1 641 
1 645 
1 650 
1 660 
1 800 

1 81 0 

1 820 

1 830 

. 1 840 

1 850 

1 855 
1 860 

1 861 
1 870 

1 880 

1 890 

1 90 0 

1 91 0 
1 920 

1 930 

1 940 

1 950 

1 960 

1 965 
1 970 

1 975 
1 980 

1 985 


PRINT"{ 7 GIU'}"; :rem 78 
REM : rem 176 
PRINT"{RED} {RVS} { 11 DES}FUGA DA ATLANTIDE": rem 76 
REM : rem 176 
FORT=1TOl500:NEXT:RETURN :rem 114 
PRINT"IL GORILLA E' ANCORA AFFAMATORETURN 


: rem 106 

PRINT"IL REATTORE E' ENTRATO IN FASE CRITICA 
{ 2 SPAZI}ED E' ESPLOSO! !": RETURN : rem 74 

PRINT"IL GORILLA E' CORSO VERSO IL MOSTRO MA- RINO E 
L'HA UCCISO": RETURN :rem 73 

PRINT"IL FIORE RENDE PICCOLO E INOFFENSIVO 
{ 4 SPAZI}L'ORG": RETURN : rem 30 

PRINT"IL LETTORE PAZZO PRENDE IL LIBRO E TI DADEI SE 
MI":RETURN : rem 50 

PRINT"IL GUERRIERO TI PRENDE E NON TI LASCIA 
{ 2 SPAZI}PIU' FUGGIRE" : rem 219 

RETURN : rem 179 

PRINT"MOLTI ABITANTI DI ATLANTIDE TI SENTONO " 


:rem 87 

PRINT"ALLA RADIO E TI CATTURANO I !":RETURN :rem 25 
PRINT"LA GUARDIA TI OSSERVA CAMMINARE SUL MURO":RETU 
RN :rem 201 

PRINT"LA GUARDIA NON TI LASCIA PASSARE": RETURN 

: rem 13 8 

PRINT"LA GUARDIA E' DISTRATTA E NON TI VEDE 
{ 3 SPAZI}FUGGIRE":RETURN : rem 93 


PRINT"IL MURO E' TROPPO SOLIDO PER CAMMINARCI ATTRAV 
ERSO": RETURN :rem 109 
PRINT"NON VEDO NULLA DI RILEVANTE":RETURN : rem 130 
PRINT"TI DA UNA PASTIGLIA PER RENDERTI PIU' 

{ 3 SPAZI}FORTE":RETURN : rem 52 
PRINT"IL FIORE EMANA UN FORTE ODORE MA NON TI DANNEG 
GIÀ":RETURN : rem 84 
PRINT"IL GORILLA{ 2 SPAZljTI SEGUE NELLA SPERANZA DI 
{ 2 SPAZI}AVERE ALTRO CIBO": RETURN : rem 221 
PRINT"L'AGGIUNTA DI ALTRO CARBURANTE HA STABI-LIZZAT 
O IL REATTORE": RETURN : rem 196 


PRINT"NON HO NULLA CON CUI ATTIVARE IL MECCA- NISMO 


DI APERTURA" 

: rem 82 

RETURN 


: rem 181 

PRINT"SEI 

AFFOGATO 

NELL'ACQUA CHE HA INONDATO L'AIRL 

OCK" 


: rem 180 

RETURN 


: rem 182 

PRINT"UNO 

DEI SEMI 

CRESCE VELOCEMENTE E FORMA UNA LU 

NGA ASTA" 


: rem 191 

RETURN 


: rem 183 


i 
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Hires Tool 




Uno dei principali difetti del Basic 
del C64 è l'assoluta mancanza di 
istruzioni per la gestione della gra¬ 
fica bit-mapped. Con questa utili¬ 
ty, realizzata totalmente in linguag¬ 
gio macchina, avrai la possibilità di 
scrivere programmi che utilizzino 
con facilità le ottime capacità grafi¬ 
che del "re" degli home- 
computers. 

Per utilizzare HIRES TOOL digitalo 
e salvalo PRIMA di dare RUN, in 
quanto esso, dopo aver memoriz¬ 
zato il linguaggio macchina, si 
autodistrugge. 

I nuovi comandi a tua disposizione 
sono i seguenti: 

SET GRAPH-. si attiva con SYS 
49152 e permette la visualizzazio¬ 
ne della pagina grafica in alta riso¬ 
luzione. 

RESET GRAPH: per ritornare al nor¬ 
male schermo a bassa risoluzione ; 
si attiva con SYS 49174. 

CLEAR HIRES SCREEN: cancella lo 
schermo hires e seleziona i colori 
di scrittura e di sfondo,- il suo for¬ 
mato è 

SYS 49190,d,b 

dove "d" è il colore di scrittura (un 
valore fra 0 e 15) e “b " il colore di 
sfondo (sempre un numero fra 0 e 
15 ). 

PLOT: visualizza un punto sullo 
schermo nel colore precedente- 
mente determinato dall’istruzione 
CLEAR HIRES SCREEN. Il formato è: 
SYS 49190,x,y 

dove "x" e "y" sono le coordinate 


del punto da visualizzare (x com¬ 
preso fra 0 e 319; y compreso fra 
0 e 199). L'origine è fissata in alto 
a sinistra. 

UNPLOT: cancella un punto. Il for¬ 
mato è: 

SYS 49286,x,y 

dove “x" e "y" sono le coordinate 
del punto, come spiegato per 
l’istruzione PLOT. 

CHAR: scrive un carattere nello 
schermo hires. Il formato dell’istru¬ 
zione è: 

SYS 49470,x,y,c 

dove “x" è la colonna e "y" la riga 
in cui il carattere deve essere visua¬ 
lizzato (con x compreso fra Oe 39 
e y compreso fra 0 e 24),- "c” è il 
codice di schermo del carattere da 
visualizzare. 

INVERT HIRES SCREEN: quest’ulti- 
ma opzione in verte il colore dello 
sfondo con quello di scrittura. Il 
suo tarmato è: 

SYS 49746,i,f 

dove " i” è la prima locazione della 
memoria di schermo da invertire e 
" f" l’ultima. 

A questo proposito è utile sapere 
che l'inizio della mappa video vie¬ 
ne fissato alla locazione 24576 e 
continua per i successivi 8000 by- 
tes (quindi fino a 32576). Perciò 
per invertire tutto lo schermo oc- 
corerà usare 
SYS 49746,24576,32576. 

Per invertire parte dello schermo 
occorre invece modificare i ed f, 
tenendo conto che ogni riga nello 
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schermo (che risulterà essere co¬ 
munque alta 8 pixel) è composta 
da 320 bytes. Per esempio per in¬ 
vertire tutto lo schermo tranne la 
prima e l'ultima riga bisogna usare 
SYS 49746,24576+320,32576-320 
È buona norma, quando si scrivo¬ 
no programmi utilizzando HIRES 
TOOL, mettere le seguenti istruzio¬ 
ni ALL 'INIZIO del programma stes¬ 
so: 

10 POKE 55,0:POKE 56,64:CLR 
Questa linea riposizionerà i punta¬ 
tori del Basic in modo che non sia 


possibile " sporcare" le mappe vi¬ 
deo e colore utilizzate da HIRES 
TOOL Resteranno comunque a tua 
disposizione oltre 14k di memoria 
Basic. 

Ti forniamo anche un piccolo pro¬ 
gramma dimostrativo, che utilizza 
tutti i comandi di HIRES TOOL 
commentati per mezzo di istruzio¬ 
ni REM. Potrai utilizzare questo 
programma come base dei tuoi 
esperimenti, modificandolo a tuo 
piacere. 


Programma dimostrativo 


1 0 

POKE55,0 :POKE5 6,64 :CLR: REM ABBASSA I PUNTATORI DI 

FINE 


BASIC 

: rem 

6 

20 

POKE53280,11:POKE53281,0 

: rem 

233 

30 

PRINT" {CLR} [ < 1 >] { 3 GIU'H 11 DES}{RVS} PROVA HIRES TO 


OL " 

: rem 

1 3 

40 

PRINT"{ 2 GIU'}QUESTO PROGRAMMA DIMOSTRATIVO 

UTILIZZA" 



: rem 

255 

50 

PRINT"TUTTE LE 7 OPZIONI DELLA TOOL GRAFICA." 

: FORK 

= 1 TO 


4000:NEXT 

: rem 

49 

60 

SYS 4 91 52 : REM SETTA LO SCHERMO IN AL-TA RISOLUZIONE 


- 

: rem 

254 

70 

SYS 49190,6,1:REM PULISCE LO SCHERMO HIRES E 

SETTA 

I C 


OLORI 

: rem 

93 

80 

FORY=OTOl83 

: rem 

84 

90 

SYS 49290,16,Y:REM DISEGNA L'ASSE Y 

: rem 

1 53 

1 00 

NEXT 

: rem 

208 

1 1 0 

FORX=16T0319 

: rem 

1 81 

1 20 

SYS 49290,X,91 : REM DISEGNA L'ASSE X 

: rem 

1 96 

1 30 

NEXT 

: rem 

21 1 

1 40 

SYS 49470,39,10,24:REM SCRIVE "X" 

: rem 

21 7 

1 50 

SYS 49470,0,0,25:REM SCRIVE "Y" 

: rem 

1 1 1 

1 60 

X=16 :PI = 3.1415 :FORXX=PITOPI*3STEPPI*2/304 

: rem 

6 

1 70 

Y=(SIN(XX)+1)*92 

: rem 

91 

1 80 

SYS 49290,X,Y:REM DISEGNA LA SINU- SOIDE 

: rem 

47 

1 90 

X=X+1:NEXT 

: rem 

92 

200 

FORX= 1 7T02 4 :READA 

: rem 

22 

210 

SYS 49470,X,24,A:NEXT:REM SCRIVE "Y=SIN(X)" 




: rem 

237 

220 

DATA2 5,61 ,19,9,14,40,24,41 

: rem 

231 

230 

FORD=1TO500:NEXT 

: rem 

223 
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240 

SYS 49746,24576,31936:REM INVERTE 

PARTE 

DELLO SCHER 


MO 


: rem 

65 

250 

FORX=1T03000:NEXT 


: rem 

35 

260 

SYS 49746,24576,32576 : REM INVERTE 

TUTTO 

LO SCHERMO 




: rem 

1 47 

270 

X=16 :FORXX=PITOPI * 3STEPPI* 2/304 


: rem 

204 

280 

Y=(SIN(XX)+1)*92 


: rem 

93 

290 

SYS 49286,X,Y:REM CANCELLA LA SINU- 

SOIDE 

: rem 

110 

300 

X=X+1:NEXT 


: rem 

85 

31 0 

FORX=lT02000:NEXT 


: rem 

31 

320 

PRINT"{CLR}{GIU'}{DES}SPERO CHE LA 

DIMOSTRAZIONE 

TI S 


IA{ 7 SPAZI}PIACIUTA!" 


: rem 

224 

330 

SYS 49174:REM RITORNA IN BASSA RISO 

-LUZIONE : rem 

1 08 

340 

END 


: rem 

1 1 0 


HIRES TOOL 


1 0 

POKE53280,11:POKE53281,0 

: rem 

232 

20 

PRINT"{CLR}[<1>]{GIU*}{DES}ATTENDI UN ATTIMO 

PER FAVOR 


E" 

: rem 

1 53 

30 

FORX=4 91 52T04 9821 :READA:CK=CK+A 

: rem 

37 

40 

POKEX,A:NEXT 

: rem 

209 

50 

IFCK<>83050THENPRINT"ERRORE NELLE ISTRUZIONI 

DATA" 

: rem 

: END 
1 34 

60 

PRINT"{GIU'}{RVS} OK! SONO PRONTO." 

: rem 

1 00 

70 

FORX=1T02000:NEXT 

: rem 

242 

80 

PRINT"{CLR}{RVS} COMANDI: " 

: rem 

1 9 

90 

PRINT"{GIU*}SYS 49152{ 2 SPAZI}SET GRAPH" 

: rem 

1 73 

1 00 

PRINT"SYS 491 74{ 2 SPAZljRESET GRAPH" 

: rem 

95 

1 1 0 

PRINT"SYS 491 90{ 2 SPAZI}CLEAR HIRES SCREEN" 

: rem 

1 1 

1 20 

PRINT"SYS 49290{ 2 SPAZI}PLOT" 

: rem 

1 70 

1 30 

PRINT"SYS 49286{ 2 SPAZI}UNPLOT" 

: rem 

83 

1 40 

PRINT"SYS 49470{ 2 SPAZI}CHAR" 

: rem 

1 39 

1 50 

PRINT"SYS 49746{ 2 SPAZI}INVERT HIRES SCREEN 

ii 

: rem 

1 35 

1 60 

NEW 

: rem 

1 29 

500 

DATAI 69,22,141 ,0,221 ,169 

: rem 

1 38 

51 0 

DATA8,1 41, 24,208,173,17 

: rem 

93 

520 

DATA208,9,32,141,17,208 

: rem 

93 

530 

DATA96,169,21,141,169,21 

: rem 

1 53 

540 

DATAI 41 ,24,208,169,27,141 

: rem 

1 96 

550 

DATAI 7,208,1 69,23, 1 41 ,0 

: rem 

93 

560 

DATA221,96,32,253,174,32 

: rem 

1 49 

570 

DATAI 3 8,1 73,32,247,1 83,1 65 

: rem 

3 

580 

DATA21 , 240,3,76,72,1 78 

: rem 

53 

590 

DATAI 65,20,1 41 ,1 33,1 92,32 

: rem 

1 92 

600 

DATA253,174,32,138,173,32 

: rem 

1 95 

61 0 

DATA247,183,165,21,240,3 

25 

: rem . 

1 42 


620 

DATA 7 6,72,1 78,1 65,20,1 0 

: rem 

99 

630 

DATAI 0,1 0,1 0,13,133,192 

: rem 

73 

640 

DATAI 41 , 1 33,1 92,1 69,0,1 33 

: rem 

1 92 

650 

DATA251,169,96,133,252,160 

: rem 

255 

660 

DATAO,169,0,145,251,200 

: rem 

86 

670 

DATA208,251,230,252,166,252 

: rem 

41 

680 

DATA224,128,208,243,173,133 

: rem 

44 

690 

DATAI 92,162,0, 1 57,0,64 

: rem 

49 

700 

DATAI 57,0,65,1 57,0,66 

: rem 

254 

71 0 

DATAI 57,0,67,232,208,241 

: rem 

1 44 

720 

DATA96,255,169,255,208,2 

: rem 

1 62 

730 

DATAI 69,0,1 41 , 58,1 93,32 

: rem 

1 01 

740 

DATA253,174,32,235,183,224 

: rem 

250 

750 

DATA200,176,94,165,20,201 

: rem 

1 92 

760 

DATA64,165,21,233,1,176 

: rem 

99 

770 

DATA8 4,138,74,74,74,10 

: rem 

62 

780 

DATAI 68,185,248,1 92,133,253 

: rem 

61 

790 

DATAI 85,249,1 92,1 33,254,1 38 

: rem 

61 

800 

DATA41,7,24,101,253,133 

: rem 

83 

81 0 

DATA253,165,254,105,0,133 

: rem 

1 89 

820 

DATA254,165,20,41,7,168 

: rem 

1 00 

830 

DATAI 65,20,41 , 24 8,24,1 01 

: rem 

1 38 

840 

DATA253,133,253,165,254,101 

: rem 

38 

850 

DATA21,133,254,165,253,24 

: rem 

1 96 

860 

DATAI 05,0,133,2 53,165,254 

: rem 

1 94 

870 

DATAI 05, 96,1 33,2 54,1 62,0 

: rem 

1 49 

880 

DATAI 61,253,44,58,193,16 

: rem 

1 61 

890 

DATA6,57,50,193,76,244 

: rem 

66 

900 

DATAI 92,25,42,193,129,2 53 

: rem 

203 

91 0 

DATA96,96,0,0,64,1 

: rem 

105 

920 

DATAI 28,2,1 92,3,0,5 

: rem 

146 

930 

DATA64,6,128,7,192,8 

: rem 

21 6 

940 

DATAO,10,64,11,128,12 

: rem 

238 

950 

DATAI 92,1 3,0,1 5,64,1 6 

: rem 

251 

960 

DATAI 28,17,1 92,18,0,20 

: rem 

- 4 7 

970 

DATA64,21,128,22,192,23 

: rem 

99 

980 

DATAO,25,64,26,128,27 

: rem 

4 

990 

DATAI 92,28,0,30,1 28,64 

: rem 

54 

1 000 

DATA32,16,8,4,2,1 

: rem 

82 

1 01 0 

DATAI 27,1 91 , 22 3,239,247,2 51 

: rem 

87 

1 020 

DATA253,254,0,76,72,178 

: rem 

148 

1 030 

DATA32,253,174,32,29,194 

: rem 

1 95 

1 040 

DATAI 65,20,201,40,1 76,241 

: rem 

229 

1 050 

DATAI 41,75,1 94,32,253,1 74 

: rem 

247 

1 060 

DATA32,29,194,165,20,201 

: rem 

1 88 

1 070 

DATA25,176,226,141,76,194 

: rem 

254 

1 080 

DATAI 73,75, 1 94,1 41 , 72,1 94 

: rem 

1 

1 090 

DATAI 69,8,1 41,73,1 94,32 

: rem 

1 55 

1 1 00 

DATA43,194,173,70,194,133 

: rem 

244 

ino 

DATA2 51 , 1 73,71 , 1 94,1 33,252 

: rem 

34 

1 1 20 

DATAI 73,76,1 94,1 41 ,72,1 94 

: rem 

253 


26 


1 1 30 

DATAI 6 9,40,1 41 , 73,194,32 

: rem 

1 94 

1 1 40 

DATA43,194,173,70,194,141 

: rem 

247 

1 1 50 

DATA80,194,173,71,194,141 

: rem 

250 

1 1 60 

DATA81,194,162,7,173,70 

: rem 

1 51 

1 1 70 

DATAI 94,1 0 9,80,1 94,1 41 , 70 

: rem 

250 

1 1 80 

DATAI 94,1 73,71 , 1 94,1 05,0 

: rem 

1 97 

1 1 90 

DATAI 41 ,71 ,1 94,202,208,236 

: rem 

38 

1 200 

DATAI 62,7,1 73,71 , 1 94,24 

: rem 

1 44 

1 21 0 

DATAI 0 9,81 , 1 94,1 41 , 71 , 1 94 

: rem 

247 

1 220 

DATA202,208,243,173,71,194 

: rem 

35 

1 230 

DATA24,105,96,141,71,194 

: rem 

1 95 

1 240 

DATAI 65,251,24,109,70,1 94 

: rem 

246 

1 250 

DATAI 3 3,2 51 , 1 65,2 52,1 0 9,71 

: rem 

36 

1 260 

DATAI 94,1 33,252,32,253,1 74 

: rem 

40 

1 270 

DATA32,29,194,165,20,141 

: rem 

1 94 

1 280 

DATA78,194,173,78,194,141 

: rem 

1 2 

1 290 

DATA7 2,194,169,8,141 , 73 

: rem 

1 61 

1 300 

DATAI 94,32,4 3,1 94,1 7 3,70 

: rem 

1 96 

1 31 0 

DATAI 94,1 33,2 53,1 73,71 , 1 94 

: rem 

43 

1 320 

DATA24,105,208,133,254,169 

: rem 

36 

1 330 

DATAO,141,74,194,120,169 

: rem 

1 91 

1 340 

DATA51,133,1,160,0,177 

: rem 

82 

1 350 

DATA253,145,251,230,251,208 

: rem 

82 

1 360 

DATA2,230,252,230,253,208 

: rem 

233 

1 370 

DATA2,230,254,2 38,74,1 94 

: rem 

201 

1 380 

DATAI 73,74,1 94,201 , 8,20 8 

: rem 

203 

1 390 

DATA230,169,55,133,1,88 

: rem 

1 54 

1 400 

DATA96,32,138,173,32,247 

: rem 

200 

1 41 0 

DATAI 83,1 65,21 , 240,3,76 

: rem 

1 41 

1 420 

DATA72,1 78,96,1 69,0,1 41 

: rem 

1 55 

1 430 

DATA70,194,162,8,78,72 

: rem 

108 

1 440 

DATAI 94,1 44,4,24,109,73 

: rem 

148 

1 450 

DATAI 94,1 06,1 1 0,70,1 94,202 

: rem 

32 

1 460 

DATA2 08,2 40,1 41 , 71 , 1 94,96 

: rem 

252 

1 470 

DATAO,0,0,0,0,0 

: rem 

226 

1 480 

DATAO,0,0,0,0,0 

: rem 

227 

1 490 

DATA32,2 53,1 74,32,1 38,1 73 

: rem 

251 

1 500 

DATA32,247,183,165,20,133 

: rem 

239 

1 51 0 

DATA251,165,21,133,252,32 

: rem 

233 

1 520 

DATA253,174,32,138,173,32 

: rem 

245 

1 530 

DATA2 4 7,1 83,165,20,141, 60 

: rem 

242 

1 540 

DATA3,165,21,141,61,3 

: rem 

34 

1 550 

DATAI 60,0,1 6 9,2 55,81 , 2 51 

: rem 

1 97 

1 560 

DATAI 45,251,32,149,1 94,165 

: rem 

49 

1 570 

DATA251,205,60,3,240,3 

: rem 

84 

1 580 

DATA76,118,194,165,252,205 

: rem 

53 

1 590 

DATA61,3,240,11,76,118 

: rem 

94 

1 600 

DATAI 94,2 30,2 51 , 240,1 , 96 

: rem 

1 90 

1 61 0 

DATA2 30,252,96,96 

: rem 

1 1 4 
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A TUTTA MUSICA CON 



MAXIPRESTAZIONE IN MINISPAZIO 

Il tuo laboratorio musicale, completo e perfetto, 
è tutto qui: il Commodore 64, il SOUND BUGGY, 
la minitastiera S1EL, il software. 


Musica dal calcolatore, 
musica vera, musica tua! 

Con l’unità periferica 
SOUND BUGGY, e la tastierina 
musicale SIEL da sovrapporre a 
quella alfanumerica, il tuo 
Commodore 64 si trasforma in 
un’autentica band. 

Se sei già esperto di musica 
SOUND BUGGY ti porterà alla 
perfezione. Se sei un principiante 
diventerai, in pochi giorni, 
concertista e arrangiatore, 
comporrai musica tua e potrai 
ascoltarla in una perfetta 
registrazione elettronica, 
collegandoti a ogni impianto 
stereo, videotelevisivo, 
monitor C 64. 


UN ECCEZIONALE PACCHETTO DI 
PROGRAMMI 

Grazie allo straordinario 
software di SOUND BUGGY 
potrai eseguire o comporre su 24 
ritmi (12 preregistrati), disporrai di 
ben 28 timbri strumentali 
(14 preregistrati), potrai correggere, 
migliorare, registrare. 

In più, tramite interfaccia 
MIDI, SOUND BUGGY 
comunica anche con expander, 
sintetizzatori, sequencer ecc. 

Insomma, SOUND BUGGY 
è un vero prodigio dell’elettronica 
al servizio della tua creatività 
musicale. 


IMPORTANTE 

SOUND BUGGY 
è acquistabile 
esclusivamente tramite il 
coupon privilegiato di 
questa offerta. Ritaglialo 
e spediscilo subito. 
Usufruirai del prezzo 
bloccato fino al 
31.12.1985. 


Volume generale _ 

Volume per la parte 
orchestrale _ 


Volume per la batteria 
elettronica _ 


Spia luminosa 
di corretta 
alimentazione 















Questa Cedola rappresenta l’unico 
modo di ordinare SOUND BUGGY, e 
riceverlo completo di tastierina e di 
programmi su disco e cassetta. 

Ritagliala e spediscila subito. 


CEDOLA PRIVILEGIATA DI ACQUISTO 



[ 1 Sì, desidero acquistare 
SOUND BUGGY, la 
vostra unità periferica 
per C 64. Speditemela 



SOUNDBUGGY 

contrassegno completa 
di minitastiera, 
pacchetto software sia 

su disco che su cassetta, 
libretto istruzioni al 

prezzo speciale di 
L. 185.000 (incluse 
L. 27.650 IVA e L. 3.750 
di spese postali). 

È inteso che il mio 


Indicare con yna X 
il □ che interessa 

SOUND BUGGY 
sarà protetto da 

Garanzia per 1 anno. 

□ Sono interessato alla 
unità periferica per C 64 
SOUND BUGGY e vi 
prego di volermi fornire 
informazioni più 
dettagliate. 


12 MESI DI GARANZIA 


Klnmp 

Connome 


\nr\\r\vvn ___ - 

CAP 

1 nrnlitn 


P)ntn 

Firmn 


(per i minori occorre quella del genitore) 










































* 


Ecco una versione per il vostro C64 
di un popolarissimo gioco che av¬ 
vincerà tutta la famiglia. Dovrete 
comporre delle parole di senso 
compiuto utilizzando il maggior 
numero possibile di lettere scelte 
fra le IO estratte dal computer. 
L'estrazione avviene indicando di 
volta in volta, tramite i tasti C e V, 
se si desidera una consonante o 


sono state sorteggiate, avete 45 se¬ 
condi di tempo per anagrammarle 
cercando di formare una parola. 
Possono giocare fino a nove per¬ 
sone, che ad ogni turno guadagna¬ 
no un punteggio dato dalla lun¬ 
ghezza della parola che sono riu¬ 
sciti a formare. Dopo ogni mano si 
può scegliere se proseguire o 
smettere. 


una 

vocale,- appena le 10 lettere 





1 0 

REM PAROLIAMO 



: rem 

233 

20 

POKE53280,4 :POKE5 32 81 , 1 SPRINT"{CLR}{GRN} 

11 

: rem 

1 20 

30 

PRINT"{RVS}{ 8 DES} *PAROLIA 

M O 

★ »l 

: rem 

38 

40 

INPUT"{ 2 GIU'}{BLU}NUMERO DI GIOCATORI 

(MAX. 

9)";NP 





: rem 

244 

50 

IFNP<1ORNP>9THEN2 0 



: rem 

70 

60 

DIMPO(NP) ,C$ (10) ,WO$(20) 



: rem 

1 88 

70 

GOTO510 



: rem 

54 

80 

REM *SCELTA CARATTERI* 



: rem 

251 

90 

LE$ = "" 



: rem 

1 59 

1 00 

PRINT"{BLU}{ 2 GIU'}{RVS}TURNO DEL 

GIOCATORE 

" ; PL 






: rem 

1 50 

1 1 0 

PRINT"{GIU'}VOCALE O CONSONANTE?{RED}{GlU" 

: rem 

225 

1 20 

FORDU=1TOl0 



: rem 

1 33 

1 30 

GETIN$ 



: rem 

47 

1 40 

IFIN$ < >"V"ANDIN$ <>"C"THENl30 



: rem 

69 

1 50 

IFIN$ = "V"THENCH$ = "AEIOU" 



: rem 

1 37 

1 60 

IFIN$="C"THENCH$="BCDFGHLMNPQRSTVZ" 



: rem 

21 1 

1 70 

C$=MID$(CH$,RND(0)*LEN(CH$)+1,1) 



: rem 

141 

1 80 

LE$ =LE$ +C$ 



: rem 

21 0 

1 90 

PRINTC$; 



: rem 

201 

200 

NEXTDU 



: rem 

106 

210 

RETURN 



: rem 

1 1 5 

220 

REM * INPUT PAROLA* 



: rem 

27 

230 

LE= 0 



: rem 

147 

240 

PRINT"{BLU}{GIU 1 }SECONDI:" 



: rem 

21 4 

250 

TI$="000000":Q=0 



: rem 

241 

260 

PRINT"{HOME}{ 5 GIU'}{ 8 DES}{BLU}" 

; :IFQ> 3 5THENPRINT" 


Il • 
f 



: rem 

1 4 
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270 

PRINT4 5-Q:Q=VAL( TI$ ) 

: rem 

202 

280 

GETIN$ • 

: rem 

53 

290 

IF(IN$ <>CHR$(2 0)ORLE=0)AND(IN$<"A"ORIN$>"Z" 

)THEN340 



: rem 

1 61 

300 

IFLE>9ANDIN$OCHR$ (20) THEN340 

: rem 

1 72 

31 0 

PRINT"{HOME}{ 7 GIU'}{BLK}";TAB(LE+15);IN$ 

: rem 

250 

320 

IFIN$=CHR$(20)THENLE=LE-1:GOTO340 

: rem 

1 98 

330 

LE=LE+1:WO$(LE)= IN$ 

: rem 

47 

340 

IFQ< 46THEN2 60 

: rem 

228 

350 

RETURN 

: rem 

1 20 

360 

REM ‘CALCOLO PUNTEGGIO* 

: rem 

1 28 

370 

FORC=1TOl0 

: rem 

54 

380 

C$(C)=MID$(LE$,C,1) 

: rem 

1 63 

390 

NEXT 

: rem 

21 9 

400 

FORCO=1TOLE 

: rem 

1 75 

410 

FORC=1TOl 0 

: rem 

49 

420 

IFWO$(CO)=C$(C)THENC$(C):GOTO440 

: rem 

1 92 

430 

NEXTC:GOT04 60 

: rem 

38 

440 

NEXTCO 

: rem 

105 

4 50 

PO(PL)=PO(PL)+LE 

: rem 

1 70 

460 

PRINT"{HOME}{ 10 GIU'}{BLU}"; 

: rem 

1 30 

470 

FORP=1TONP 

: rem 

1 29 

480 

PRINT"GIOCATORE";P;": PO(P);"PUNTI" 

: rem 

21 6 

490 

NEXTP 

: rem 

44 

500 

RETURN 

: rem 

1 1 7 

51 0 

REM ‘PROGRAMMA PRINCIPALE* 

: rem 

91 

520 

FORPL=1TONP:PRINT"{CLR}" 

: rem 

1 03 

530 

GOSUB80 

: rem 

1 28 

540 

PRINT"{CLR}{BLU}GIOCATORE";PL;"{SIN}, COMPONI UNA 

PAR 


OLA USANDO" 

: rem 

90 

550 

PRINT"LE SEGUENTI LETTERE:{GIU'}{RED}" 

: rem 

220 

560 

PRINTTAB(15);LE$ 

: rem 

1 66 

570 

GOSUB220 

: rem 

1 76 

580 

GOSUB360 :IFPL=NPTHEN61 0 

: rem 

1 88 

590 

PRINT"{ 2 GIU'}{RVS}{ 5 DES}PREMI UN TASTO 

PER CONTIN 


UARE" 

: rem 

1 90 

600 

GETA$:IFA$ = ""THEN600 

: rem 

79 

61 0 

NEXTPL:PRINT"{ 2 GIU'}UN'ALTRA MANO (S/N)?" 

: rem 

1 04 

620 

GETA$:IFA$ < >"S"ANDA$< >"N"THEN6 2 0 

: rem 

39 

630 

IFA$ = "S"THEN52 0 

: rem 

39 

640 

END 

: rem 

1 1 3 
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